fix style of threadp, mutexp, and condition-variable-p

diff --git a/src/data.c b/src/data.c
index 95cbd471d3315305f0c0abd599d8f531947f5058..3763dc8adc8b7bd3b56417c924778c8ed1a5d978 100644 (file)
--- a/src/data.c
+++ b/src/data.c
@@ -547,8 +547,7 @@ DEFUN ("threadp", Fthreadp, Sthreadp, 1, 1, 0,
 {
   if (THREADP (object))
     return Qt;
-  else
-    return Qnil;
+  return Qnil;
 }
 
 DEFUN ("mutexp", Fmutexp, Smutexp, 1, 1, 0,
@@ -557,8 +556,7 @@ DEFUN ("mutexp", Fmutexp, Smutexp, 1, 1, 0,
 {
   if (MUTEXP (object))
     return Qt;
-  else
-    return Qnil;
+  return Qnil;
 }
 
 DEFUN ("condition-variable-p", Fcondition_variable_p, Scondition_variable_p,
@@ -568,8 +566,7 @@ DEFUN ("condition-variable-p", Fcondition_variable_p, Scondition_variable_p,
 {
   if (CONDVARP (object))
     return Qt;
-  else
-    return Qnil;
+  return Qnil;
 }
 \f
 /* Extract and set components of lists.  */